
OUTPUT TO c:\a.txt .

FOR EACH wo_ NO-LOCK WHERE wo_part BEGINS "914-" ,
    EACH pt_mstr NO-LOCK WHERE pt_part = wo_part,
    FIRST pod_ NO-LOCK WHERE pod_part = wo_part AND pod_wo = wo_lot ,
    FIRST po_ NO-LOCK WHERE po_nbr = pod_nbr,
    EACH tr_ NO-LOCK WHERE tr_nbr = wo_nbr AND tr_type = "iss-wo" AND
    tr_effdate >= DATE(4,1,2005) AND tr_effdate <= DATE(3,31,2006)
    WITH STREAM-IO WIDTH 280 :
    DISP tr_nbr wo_part po_vend tr_effdate tr_part tr_qty_chg tr_qty_loc pt_desc1 + pt_desc2 FORMAT "x(80)".
END.
